function [ Out ] = remove_ruido( In )

In=im2bw(In);
temp=bwareaopen(In,floor(0.5*sum(sum(In))));
Out_inv=bwareaopen(1-temp,floor(0.01*sum(sum(temp))));
Out=logical(1-Out_inv);

end

